QTMTB 48 - SetMovieDefaultDataRef ÇΔÇÕ

Q: SetMovieDefaultDataRef ä÷êîÇÃÉ}ÉjÉÖÉAÉãÇå©Ç¬ÇØÇÈDZÇΔÇ™Ç≈Ç´Ç‹ÇπÇÒÅBDZÇÃä÷êîÇÃì≠Ç´ÇΔégÇ¢ï˚Çã≥ǶǃÇ≠ÇæÇ≥Ç¢ÅB

A: SetMovieDefaultDataRef ÇÕÅAMovies.h ÇÃíÜÇ≈éüÇÃÇÊǧDžíËã`Ç≥ÇÍǃǢNjÇ∑ÅB

pascal OSErr SetMovieDefaultDataRef(Movie theMovie, Handle dataRef, OSTypedataRefType);

     OSErr ConvertGeneralMIDIToSoundTrack (void)
     {
          OSErr                              err = noErr;
          StandardFileReply                  reply;
          short                              refNum;
          long                                logicalEOF;
          Handle                             dataHandle = nil, tempHandle = nil;
          Movie                              theMovie = nil, tempMovie = nil;

          // ÉCÉìÉ|Å[ÉgÇÃëŒè€ÇΔǵǃ General MIDI ÉtÉ@ÉCÉãÇéwíËÇ∑ÇÈ
          StandardGetFilePreview (nil, 0, nil, &reply);
          if (reply.sfGood)
          {
               // ÉfÅ[É^ÉtÉHÅ[ÉNÇäJÇ´ÅAÇ∑Ç◊ǃÇÃÉfÅ[É^ÇÉnÉìÉhÉãÇÃíÜÇ…ãzÇ¢è„Ç∞ÇÈ
               err = FSpOpenDF (&reply.sfFile, fsRdPerm, &refNum);
               err = GetEOF (refNum, &logicalEOF);
               dataHandle = NewHandleClear (logicalEOF);
               HLock (dataHandle);
               err = FSRead (refNum, &logicalEOF, *dataHandle);
               HUnlock (dataHandle);
               FSClose (refNum);

               // ÉÅÉÇÉäì‡Ç…êVǵǢÉÄÅ[ÉrÅ[ÇçÏê¨ÇµÅAǪÇÃÉfÉtÉHÉãÉgÇÃÉfÅ[É^éQèΔÇ
               // ÉnÉìÉhÉãÇ…ê›íËÇ∑ÇÈ
               tempMovie = NewMovie (newMovieActive);
               tempHandle = NewHandleClear (4);
               SetMovieDefaultDataRef (tempMovie, tempHandle,
                    HandleDataHandlerSubType);
               DisposeHandle (tempHandle);

               // ÉnÉìÉhÉãÇ…äiî[Ç≥ÇÍÇΩÉfÅ[É^ÇÉÄÅ[ÉrÅ[Ç…ÉyÅ[ÉXÉgÇ∑ÇÈ
               err = PasteHandleIntoMovie (dataHandle, 'Midi', tempMovie, 0, nil);

               // ÉÄÅ[ÉrÅ[ÇÉtÉâÉbÉgâªÇ≥ÇÍÇΩÉtÉ@ÉCÉãÇ…ï€ë∂Ç∑ÇÈ
               StandardPutFile ("\pSave MIDI to:", "\pMIDI movie", &reply);
               if (reply.sfGood)
               {
                    theMovie = FlattenMovieData (tempMovie,
                         flattenAddMovieToDataFork, &reply.sfFile, 'TVOD',
                         smCurrentScript, createMovieFileDeleteCurFile);
               }
          }
          return err;
     }

SetMovieDefaultDataRef (tempMovie, fileAlias, rAliasType);

[ Technical Q&A's : Graphics & Media : QuickTime : QuickTime Movie Toolbox : QTMTB 48 ]